home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / basic / ubmalm.zip / tau.ub < prev    next >
Text File  |  1990-08-22  |  233b  |  8 lines
  1.    10   *Tau(&M(),K,&Ta)
  2.    20   ' Modeled on the Pascal version. M() is an input parameter.
  3.    30   ' 8 May 1990
  4.    50   local I
  5.    60   Ta=1
  6.    70   for I=1 to K:Ta=Ta*(M(I)+1):next I
  7.    80   return ' End of subroutine Tau.
  8.